00100	PRECEDE;				< Preliminary things
00200	FUNC EXAMP.FUN[INS,MUS];		< Get functions from EXAMP.FUN[INS,MUS]
00300	COMMON TOOT,CLAR;
00400	*
00500	
00900	
01000	TOOT 0 5;
01100	P2 RHY/16;			< quarter note, 2 eighths, half
01200	P3 NOT/GS4/A/B/C5;			< G4 = G above middle C
01300	P4 1;					< maximum amplitude
01400	P5 F1;					< amplitude function
01500	P6 F6;					< waveform ("SYNTH") function
01600	P7 .05;					< percentage (0 ↔ 1) of reverberation
01700	END;
02400	SYN INV 0 5;
02500	P2 P2; 
02600	P3 "SYNTH(F6);1 ";
02700	P4 MOVE /4 1 0;
02800	P5 2;
02900	P6 MOVE/4 0 .5;
03000	P7 3;
03100	P8 MOVE/4 0 1;
03200	P9 999;
03300	END;